-- card: 3008 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2675
-- name: 


-- part 2 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=3 top=149 right=341 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseDown
  hide cd fld "help"
end mouseDown



-- part 3 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=0 top=170 right=199 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: General Install
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  put "Please select the source stack"
  put GetStackName() into sourceStack
  if sourceStack is empty then
    put ""
    hide msg
    exit mouseUp
  end if

  put "Now select the destination stack"
  put GetStackName() into destinationStack
  if destinationStack is empty then
    put ""
    hide msg
    exit mouseUp
  end if
  set cursor to watch
  CopyOver sourceStack, destinationStack
  if the result is not empty then
    put the result into temp
  else
    put ""
    hide msg
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=44 top=121 right=150 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  set the scroll of cd fld "help" to 0
  show cd fld "help"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=4 top=78 right=110 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install cursors in  a stack
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  put GetStackName() into destination
  if destination is empty then exit mouseUp
  put ""
  hide msg
  get word 2 of the long name of this stack
  put it into source
  put it into copy
  get offset (":", source)
  repeat until offset (":", copy) is 0
    get offset(":", copy)
    put "#" into char offset(":", copy) of copy
  end repeat
  -- Custom Cursor is the name of the stack containing the XCMDs XFCNs etc
  put "Custom_Cursor" & quote into char (it +1) to (the length of source) of source
  put source && Destination
  CopyOver source, destination
  if the result is not empty then
    put the result
    beep
  else
    push cd
    go destination
    if the result is empty then
      get the script of this stack
      if it contains "on closeStack" then
        repeat with n = 1 to the number of lines of it
          if line n of it contains "on closeStack" then
            put return & "killslug" & return & "killCursor" after line n of it
            exit repeat
          end if
        end repeat
      else
        put "on closeStack" & return & "killslug" & return & "killCursor" & return & "end closeStack" & return before it
      end if
      set the script of this stack to it
      --here you could add any scripts to the home stack etc.
    end if
    pop cd
  end if
end mouseUp



-- part contents for card part 2
----- text -----
This stack installs the routines necessary for the custom cursors in a stack which you select. The routines are stored  in the Custom_cursor stack. It should be in the same folder as this stack. To install them simply press the
 "Install cursors in a stack" button. An error message will be returned in the message box if the transfer was not completed. If the error is due to anything besides low  disk space, low memory, or locked disks please inform me of the error.

 Enjoy!
Dave Waddell.
918 Second Street SW
Rochester, MN 55902
USA
email: waddell@mayo.edu
CIS: 71020,443